home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
CU Amiga Super CD-ROM 6
/
CU Amiga Magazine's Super CD-ROM 06 (1996)(EMAP Images)(GB)(Track 1 of 4)[!][issue 1997-01].iso
/
cucd
/
magazine
/
pd_utils
/
agassm
/
rexx
/
showports,w.agassm
< prev
Wrap
Text File
|
1996-03-30
|
632b
|
29 lines
/* AGASSM - Show message ports */
/* © 1995 Paul Vernon */
Port = Show('P','AGASSM')
If Port = 0 then do
Exit
End
succ=Open(file,'T:AGASSM-Temp','w')
If succ ~== 0 then do
succ = WriteLn(file,Show(Ports,,'0a'x))
succ = Close(file)
succ = Open(file,'T:AGASSM-Temp','r')
If succ ~== 0 then do
Do Forever While ~EOF(file)
String = ReadLn(file)
If String ~== '' then do
Ports = 'Portname : 'String
ADDRESS 'AGASSM'
ShowMsg 2 Ports
ADDRESS COMMAND
End
End
End
succ = Close(file)
ADDRESS COMMAND 'C:Delete T:AGASSM-Temp QUIET'
End
Exit